home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / e_pcld (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  764b  |  21 lines
  1. 4 IFPEEK(822)THEN300
  2. 5 PRINT"[147]":BD=53280:POKE53272,PEEK(53272)OR8:POKEBD,0
  3. 20 FORI=0TO42:READJ:POKE49152+I,J:NEXTI
  4. 24 DATA 169,0,162,32,160,0,132,33,134,34,145,33,200,208,251,232,224,64,208,244
  5. 26 DATA 96,169,1,162,4,160,0,132,33,134,34,145,33,200,208,251,232,224,8,208,244
  6. 28 DATA 96,0
  7. 30 PRINT"[147]":SYS49152:POKE53265,PEEK(53265)OR32
  8. 60 POKE822,9:POKE49174,16*13:SYS49173:LOAD"E/F HOLY FAM",8,1:REM\LTGR+BLACK
  9. 300 POKE198,0:WAIT198,1
  10. 315 PRINT"[147]"
  11. 320 POKE53265,27:POKE53270,200:POKE53272,20:POKE56576,151:POKE822,0:POKE53281,1
  12. 330 PRINTCHR$(144)TAB(6)"TO RETURN TO MUSIC MENU - M
  13. 332 [153][163]14)"TO QUIT - Q
  14. 334 POKE198,0
  15. 336 GETA$:IFA$=""THEN336
  16. 337 IFA$="Q"THENEND
  17. 338 IFA$="M"THENPRINT"[147]":GOTO350
  18. 339 IFA$<>"Q"ORA$<>"M"THEN339
  19. 350 PRINTCHR$(5)"LOAD";CHR$(34);"MUSIC MENU";CHR$(34);",8":POKE198,0
  20. 360 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13
  21.